#Reads a number from input, and squares it.
#by Jannis Harder

1>j
0>n
(i>s-10
  s?
  (s-22 s?
  (s-16
  j+0
  s+0
  j>t
  0>u
  (t-1 u+s+0 t?)
  n+u
  10>t
  0>u
  j+0
  (t-1 u+j+0 t?)
  0>j?
  u>j
  0>s?))
)
n+0 a<n>b+0
0>u
(a-1 u+b+0 a?)
u>@ 10>o (@>o)
